      MODULE employv2kp_u4
      USE employv2kp_u1
      CONTAINS
      SUBROUTINE SSDAUC(ERRMES)
      CHARACTER*(*) ERRMES
      CHARACTER*10 SUBNAM
      PARAMETER(SUBNAM='SSDAUC')
      INTEGER ASTAT
      IF(ALLOCATED(U00003)) THEN
       DEALLOCATE(U00003,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00004)) THEN
       DEALLOCATE(U00004,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00005)) THEN
       DEALLOCATE(U00005,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00006)) THEN
       DEALLOCATE(U00006,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00007)) THEN
       DEALLOCATE(U00007,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00008)) THEN
       DEALLOCATE(U00008,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00010)) THEN
       DEALLOCATE(U00010,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00011)) THEN
       DEALLOCATE(U00011,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00013)) THEN
       DEALLOCATE(U00013,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00014)) THEN
       DEALLOCATE(U00014,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00015)) THEN
       DEALLOCATE(U00015,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00016)) THEN
       DEALLOCATE(U00016,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00018)) THEN
       DEALLOCATE(U00018,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00019)) THEN
       DEALLOCATE(U00019,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00020)) THEN
       DEALLOCATE(U00020,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00021)) THEN
       DEALLOCATE(U00021,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00022)) THEN
       DEALLOCATE(U00022,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00023)) THEN
       DEALLOCATE(U00023,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00024)) THEN
       DEALLOCATE(U00024,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00025)) THEN
       DEALLOCATE(U00025,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00026)) THEN
       DEALLOCATE(U00026,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00028)) THEN
       DEALLOCATE(U00028,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00029)) THEN
       DEALLOCATE(U00029,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00033)) THEN
       DEALLOCATE(U00033,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00034)) THEN
       DEALLOCATE(U00034,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00035)) THEN
       DEALLOCATE(U00035,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00036)) THEN
       DEALLOCATE(U00036,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00037)) THEN
       DEALLOCATE(U00037,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00038)) THEN
       DEALLOCATE(U00038,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00042)) THEN
       DEALLOCATE(U00042,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00043)) THEN
       DEALLOCATE(U00043,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00044)) THEN
       DEALLOCATE(U00044,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00047)) THEN
       DEALLOCATE(U00047,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00048)) THEN
       DEALLOCATE(U00048,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00049)) THEN
       DEALLOCATE(U00049,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00050)) THEN
       DEALLOCATE(U00050,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00051)) THEN
       DEALLOCATE(U00051,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00052)) THEN
       DEALLOCATE(U00052,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00053)) THEN
       DEALLOCATE(U00053,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00054)) THEN
       DEALLOCATE(U00054,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(U00055)) THEN
       DEALLOCATE(U00055,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      RETURN
15500 CONTINUE
      CALL PERETM(SUBNAM,ERRMES)
      RETURN
24300 CONTINUE
      CALL GPDERR(ASTAT,ERRMES)
      GOTO 15500
      END SUBROUTINE SSDAUC
      END MODULE employv2kp_u4
